home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP08.EXE / FONC2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-06  |  1KB  |  49 lines
  1. program LisLettre;  {FONC2.PAS}
  2. uses
  3.   crt;  { unité de Turbo Pascal 6 }
  4.  
  5. var
  6.   ok: boolean;  { résultat de la fonction }
  7.  
  8. {------------------------------------------------}
  9. { lettre                                         }
  10. {------------------------------------------------}
  11. function lettre: boolean;
  12. var
  13.   ch: char;  { Caractère lu }
  14.  
  15. begin
  16.   gotoxy(1,5);
  17.   write('Veuillez frapper un caractère: ');
  18.   ch:= readkey;
  19.   if (ch in ['a'..'z']) or (ch in ['A'..'Z'])
  20.   then lettre:= true
  21.   else lettre:= false;
  22.   gotoxy(1,5);
  23.   clreol;
  24. end;
  25. {------------------------------------------------}
  26. { attendrela                                     }
  27. {------------------------------------------------}
  28. procedure attendrela(col,lign: byte);
  29. var  ch: char;
  30.  
  31. begin
  32.   gotoxy(col,lign);
  33.   write('Veuillez appuyer sur une touche...');
  34.   ch:= readkey;
  35. end;
  36. {------------------------------------------------}
  37.  
  38. begin
  39.   repeat
  40.     clrscr;
  41.     ok:= lettre;
  42.     gotoxy(5,10);
  43.     if ok
  44.     then write('Vous avez frappé une lettre.')
  45.     else write('La touche frappée ne correspond pas à une lettre.');
  46.     attendrela(1,25);
  47.   until not ok;
  48. end.
  49.